home *** CD-ROM | disk | FTP | other *** search
/ Teach Your Children: Road Construction Ahead / Teach Your Children: Road Construction Ahead.iso / pc / rca / road.dxr / 00032_Button Parent.ls < prev    next >
Encoding:
Text File  |  1996-07-17  |  587 b   |  24 lines
  1. property available, locH, locV, channel, bmap
  2.  
  3. on birth me, channelNumber, Xloc, Yloc, castPos, onOrOff
  4.   set available to onOrOff
  5.   set channel to channelNumber
  6.   set locH to Xloc
  7.   set locV to Yloc
  8.   set bmap to castPos
  9.   return me
  10. end
  11.  
  12. on loadButton me, index
  13.   return index
  14. end
  15.  
  16. on saveButton me
  17.   set buttonDataString to EMPTY
  18.   repeat with data in [available, channel, locH, locV, bmap]
  19.     set buttonDataString to buttonDataString & string(data) & ","
  20.   end repeat
  21.   set buttonDataString to char 1 to length(buttonDataString) - 1 of buttonDataString
  22.   return buttonDataString
  23. end
  24.